home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.10 Oct 88 / Transfer DA Code Update / LDEF.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-01-10  |  1.9 KB  |  78 lines  |  [TEXT/MPS ]
  1. (*******************************************************************
  2.     
  3.     LDEF.pas
  4.     
  5.     LDEF for dynamic Transfer menu demo.
  6.     
  7.     (c) 1988, by Clifford Story & Attic Software
  8.     
  9. *******************************************************************)
  10.     
  11. unit LDEF;
  12.     
  13. (******************************************************************)
  14.     
  15. interface
  16.     
  17. (******************************************************************)
  18.     
  19.     uses macintf, Common;
  20.     
  21. (******************************************************************)
  22.     
  23.     procedure listdef(message : integer; select : logical;
  24.                     therect : rect; thecell : cell; dataoffset : integer;
  25.                     datalen : integer; thelist : listhandle);
  26.     
  27. (******************************************************************)
  28.     
  29. implementation
  30.     
  31. (******************************************************************)
  32.     
  33.     procedure drawcell(thelist : listhandle; therect : rect;
  34.                     thecell: cell; select : logical); forward;
  35.     
  36. (******************************************************************)
  37.     
  38.     procedure listdef(message : integer; select : logical;
  39.                     therect : rect; thecell : cell; dataoffset : integer;
  40.                     datalen : integer; thelist : listhandle);
  41.  
  42.         begin
  43.             
  44.             case message of
  45.                 linitmsg        :    ;
  46.                 ldrawmsg        :    drawcell(thelist, therect, thecell, select);
  47.                 lhilitemsg    :    invertrect(therect);
  48.                 lclosemsg    :    ;
  49.             end;
  50.         
  51.         end;
  52.     
  53. (******************************************************************)
  54.     
  55.     procedure drawcell(thelist : listhandle; therect : rect;
  56.                     thecell : cell; select : logical);
  57.         
  58.         var
  59.             thehandle        :    thandle;
  60.         
  61.         begin
  62.             
  63.             thehandle := thandle(thelist^^.refcon);
  64.             
  65.             moveto(therect.left + 4, therect.bottom - 4);
  66.             drawstring(thehandle^^.appl[thecell.v + 1].name);
  67.             
  68.             if select then
  69.                 invertrect(therect);
  70.         
  71.         end;
  72.     
  73. (******************************************************************)
  74.     
  75.     end.
  76.     
  77. (******************************************************************)
  78.